home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 2 (Reseller) / Apple R&P Lib Reseller v2.0.iso / 4-Fonts & Software / Demo Software / AppMaker / Demo AppMaker™ / Demo AppMaker™.rsrc / TmpP_1508_EditText.MouseIn.txt < prev    next >
Text File  |  1989-04-09  |  219b  |  2 lines
  1. # (decoded with TMPL 11972)
  2. if PtInRect (where, %HandleName%^^.viewRect) then begin    if text <> nil then begin        TEDeactivate (text);    end;    text := %HandleName%;    TEActivate (text);    TEClick (where, false, text);end;